prev and next messages

prev_message = read.asp?messno=<%= prev_mess("mes_id")
nxt_message = read.asp?messno=<%= nxt_mess("mes_id")


<%
fp_Sqry = "Select mes_id From message where to = '" & Session("uname") & "' and mes_id < " & prvmess
set prv_mess=my_conn.Execute (fp_sqry)

fp_Sqry = "Select mes_id From message where to = '" & Session("uname") & "' and mes_id > " & prvmess
set nxt_mess=my_conn.Execute (fp_sqry)
%>
        

